unit uclass;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ActnList, Vcl.ImgList;

type
  TfmClass = class(TForm)
    actList: TActionList;
    acList: TAction;
    acExcel: TAction;
    acClose: TAction;
    SDExcel: TSaveDialog;
    acNew: TAction;
    acEdit: TAction;
    acSave: TAction;
    acDelete: TAction;
    acCancel: TAction;
    procedure acCloseExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmClass: TfmClass;

implementation

uses Data;
{$R *.dfm}

procedure TfmClass.acCloseExecute(Sender: TObject);
begin
  Close;
end;

end.
